Libris Britannia 4/science library(b).zip/science library(b)/MEDICAL/H121A.ZIP/FILES6.EXE/lha/MEASURE.CHK

Text File | 1991-07-15 | 3KB | 180 lines

*******************************************************************************
*MEASURE.CHK                                                                 *
*Check file to demonstrate the use of nutrition anthropometry within Epi Info*
* version 5.  Note that this file will not work with earlier versions of Epi *
* Info.  Remember, to use the example program distributed with Epi Info, you *
* must enter "MEASURE" at the DOS prompt, not from the Epi Info menu.        *
******************************************************************************
******************************************************************************
*Special note:  If you are going to add fields to the REC file, you will     *
* want to remove the GOTO WRITEREC that appears in 3 lines and jump to the   *
* first added field in the .CHK file.  For more information on how to modify *
* the Check file, please refer to the appropriate chapters in the Epi Info   *
* version 5 documentation                                                    *
******************************************************************************
* The path for ENTFACE.BIN must be changed if you have not placed            *
* ENTFACE.BIN in the \EPI5 subdirectory. See line 124.                       *
******************************************************************************

NAME
  UPDATE OFF
  COLOR QUESTION 31
  COLOR DATA 112
  COLOR BACKGROUND 1
  SET ALL FIELDCHAR " "
  UPDATE
  ENTER
  AutoJump SEX
END

SEX
  Legal
    M
    1
    F
    2
  END
  AutoJump AGE
END

AGE
  Range 0 +inf
  AutoJump YRS
END

BIRTHDATE
  AutoJump VISITDATE
  IF birthdate = .
  THEN
    GOTO WEIGHT
  ENDIF
END

YRS
  Range 0 +inf
  AutoJump BIRTHDATE
  IF YRS = .
  THEN
    GOTO BIRTHDATE
  ELSE
    IF AGE = . OR AGE = 0
    THEN
      LET AGE = 0
    ENDIF
    LET AGE = AGE + (YRS * 12)
    LET YRS = 0
  ENDIF
END

VISITDATE
  IF visitDATE = .
  THEN
    GOTO WEIGHT
  ELSE
    LET AGE = (VISITDATE - BIRTHDATE) /30.44
  ENDIF
END

WEIGHT
  Range 0 +inf
  IF WEIGHT = .
  THEN
    GOTO LBS
  ELSE
    GOTO HEIGHT
  ENDIF
END

LBS
  Range 0 +inf
END

OZS
  Range 0 +inf
  IF OZS = .
  THEN
    OZS = 0
  ENDIF
  IF LBS = .
  THEN
    LBS = 0
  ENDIF
  LET WEIGHT = (LBS + (OZS/16)) * 0.45359237
  GOTO HEIGHT
END

HAP
  NoEnter
END

HAZ
  NoEnter
END

HAM
  NoEnter
END

HEIGHT
  Range 0 +inf
  IF HEIGHT = .
  THEN
    GOTO FT
  ELSE
    LOAD \EPI5\ENTFACE.BIN
    CALL ENTFACE 75
    UPDATE
    GOTO WRITEREC
  ENDIF
END

WAP
  NoEnter
END

WAZ
  NoEnter
END

WAM
  NoEnter
END

FT
  Range 0 +inf
  AutoJump IN
END

IN
  Range 0 +inf
  IF FT = .
    FT = 0
  ENDIF
  IF IN = .
    IN = 0
  ENDIF
  LET HEIGHT = ((FT*12) + IN) * 2.54
  LOAD ENTFACE.BIN
  CALL ENTFACE 75
  UPDATE
  GOTO WRITEREC
END

WHP
  NoEnter
END

WHZ
  NoEnter
END

WHM
  NoEnter
  AutoJump NAME
END

FLAG
  NoEnter
END